home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / dll_gen / t2wlight / t2wlight.bas < prev    next >
BASIC Source File  |  1995-09-24  |  36KB  |  477 lines
  1. Option Explicit
  2.  
  3. ' definition for win.ini section
  4. Global Const GET_TIME_SEPARATOR = 1
  5. Global Const GET_DATE_SEPARATOR = 2
  6. Global Const GET_TIME_FORMAT = 3
  7. Global Const GET_DATE_FORMAT = 4
  8. Global Const GET_CURRENCY = 5
  9. Global Const GET_LANGUAGE = 6
  10. Global Const GET_COUNTRY = 7
  11. Global Const GET_COUNTRY_CODE = 8
  12. Global Const GET_LIST_SEPARATOR = 9
  13. Global Const GET_DEFAULT_PRINTER = 10
  14.  
  15. ' definition for drive type
  16. Global Const DRIVE_UNKNOW = 0
  17. Global Const DRIVE_REMOVABLE = 2
  18. Global Const DRIVE_FIXED = 3
  19. Global Const DRIVE_REMOTE = 4
  20. Global Const DRIVE_CDROM = 20
  21.  
  22. ' definition for file attributes
  23. Global Const A_NORMAL = &H0             'Normal file - No read/write restrictions
  24. Global Const A_RDONLY = &H1             'Read only file
  25. Global Const A_HIDDEN = &H2             'Hidden file
  26. Global Const A_SYSTEM = &H4             'System file
  27. Global Const A_VOLID = &H8              'Volume ID file
  28. Global Const A_SUBDIR = &H10            'Subdirectory
  29. Global Const A_ARCH = &H20              'Archive file
  30.  
  31. ' definition for encrypt/decrypt
  32. Global Const ENCRYPT_LEVEL_0 = 0
  33. Global Const ENCRYPT_LEVEL_1 = 1
  34. Global Const ENCRYPT_LEVEL_2 = 2
  35. Global Const ENCRYPT_LEVEL_3 = 3
  36. Global Const ENCRYPT_LEVEL_4 = 4
  37.  
  38. ' definition for FILECRC32
  39. Global Const OPEN_MODE_BINARY = 0
  40. Global Const OPEN_MODE_TEXT = 1
  41.  
  42. ' definition for ARRAYONDISK
  43. Global Const PUT_ARRAY_ON_DISK = 0
  44. Global Const GET_ARRAY_ON_DISK = 1
  45.  
  46. ' definition for error type for ISFILENAMEVALID
  47. Global Const IFV_ERROR = 0
  48. Global Const IFV_NAME_TOO_LONG = 1
  49. Global Const IFV_EXT_TOO_LONG = 2
  50. Global Const IFV_TOO_MANY_BACKSLASH = 3
  51. Global Const IFV_BAD_DRIVE_LETTER = 4
  52. Global Const IFV_BAD_COLON_POS = 5
  53. Global Const IFV_EXT_WITHOUT_NAME = 6
  54.  
  55. ' definition for variable type in DISK ARRAY
  56. Global Const DA_BYTE = 1
  57. Global Const DA_TYPE = 0
  58. Global Const DA_INTEGER = -2
  59. Global Const DA_LONG = -3
  60. Global Const DA_SINGLE = -4
  61. Global Const DA_DOUBLE = -5
  62. Global Const DA_CURRENCY = -6
  63.  
  64. ' definition for compress/expand
  65. Global Const LZH_ENCODE = True
  66. Global Const LZH_DECODE = False
  67.  
  68. ' definition for PROPERNAME2
  69. Global Const PN_UPPERCASE = 1
  70. Global Const PN_PUNCTUATION = 2
  71. Global Const PN_KEEP_ORIGINAL = 4
  72. Global Const PN_ONLY_LEADER_SPACE = 8
  73.  
  74. ' structure for splittin path
  75. Type tagSPLITPATH
  76.    nDrive            As String
  77.    nDir              As String
  78.    nName             As String
  79.    nExt              As String
  80. End Type
  81.  
  82. ' structure for file attributes
  83. Type FileAttributeType
  84.    ErrNo             As Integer
  85.    Archive           As Integer
  86.    Hidden            As Integer
  87.    Normal            As Integer
  88.    ReadOnly          As Integer
  89.    SubDir            As Integer
  90.    System            As Integer
  91.    VolId             As Integer
  92. End Type
  93.  
  94. ' structure for VB array
  95. Type ArrayType
  96.    Bounds            As Long
  97.    LBound            As Integer
  98.    UBound            As Integer
  99.    ElemSize          As Integer
  100.    IndexCount        As Integer
  101.    TotalElem         As Integer
  102. End Type
  103.  
  104. ' structure for ARRAYSTRINGONDISK
  105. Type tagVARSTRING
  106.    Contents          As String
  107. End Type
  108.  
  109. Rem Don't Remove It
  110. Declare Function cAddD Lib "t2wlight.dll" (Array() As Double, ByVal nValue As Double) As Integer
  111. Declare Function cAddDigit Lib "t2wlight.dll" (Txt As String) As Integer
  112. Declare Function cAddI Lib "t2wlight.dll" (Array() As Integer, ByVal nValue As Integer) As Integer
  113. Declare Function cAddL Lib "t2wlight.dll" (Array() As Long, ByVal nValue As Long) As Integer
  114. Declare Function cAddS Lib "t2wlight.dll" (Array() As Single, ByVal nValue As Single) As Integer
  115. Declare Function cAddTime Lib "t2wlight.dll" (ByVal Hr As Integer) As Integer
  116. Declare Function cAddTwoTimes Lib "t2wlight.dll" (ByVal Time1 As String, ByVal Time2 As String) As String
  117. Declare Function cAlign Lib "t2wlight.dll" (Txt As String, ByVal TypeAlign As Integer, ByVal NewLength As Integer) As String
  118. Declare Function cAndToken Lib "t2wlight.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  119. Declare Function cAndTokenIn Lib "t2wlight.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  120. Declare Function cArabicToRoman Lib "t2wlight.dll" (Var As Variant) As String
  121. Declare Sub cArrangeDesktopIcons Lib "t2wlight.dll" ()
  122. Declare Function cArrayOnDisk Lib "t2wlight.dll" (ByVal file As String, Array() As Any, ByVal GetPut As Integer) As Long
  123. Declare Function cArrayPrm Lib "t2wlight.dll" (Array() As Any, nArray As Any) As Integer
  124. Declare Function cArrayStringOnDisk Lib "t2wlight.dll" (ByVal file As String, Array() As Any, ByVal GetPut As Integer, rRecords As Long) As Long
  125. Declare Function cBaseConversion Lib "t2wlight.dll" (ByVal Num As String, ByVal RadixIn As Integer, ByVal RadixOut As Integer) As String
  126. Declare Function cBetween Lib "t2wlight.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  127. Declare Function cBlockCharFromLeft Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As String
  128. Declare Function cBlockCharFromRight Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As String
  129. Declare Function cCVB Lib "t2wlight.dll" (Value As String) As Integer
  130. Declare Function cCVC Lib "t2wlight.dll" (Value As String) As Currency
  131. Declare Function cCVD Lib "t2wlight.dll" (Value As String) As Double
  132. Declare Function cCVI Lib "t2wlight.dll" (Value As String) As Integer
  133. Declare Function cCVL Lib "t2wlight.dll" (Value As String) As Long
  134. Declare Function cCVS Lib "t2wlight.dll" (Value As String) As Single
  135. Declare Function cChDir Lib "t2wlight.dll" (ByVal lpDir As String) As Integer
  136. Declare Function cChDrive Lib "t2wlight.dll" (ByVal lpDrive As String) As Integer
  137. Declare Sub cChangeChars Lib "t2wlight.dll" (Txt As String, charSet As String, newCharSet As String)
  138. Declare Sub cChangeCharsUntil Lib "t2wlight.dll" (Txt As String, charSet As String, newCharSet As String, nUntil As String)
  139. Declare Sub cChangeTaskName Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal Text As String)
  140. Declare Function cCheckChars Lib "t2wlight.dll" (Txt As String, charSet As String) As Integer
  141. Declare Function cCheckNumericity Lib "t2wlight.dll" (Txt As String) As Integer
  142. Declare Function cCheckTime Lib "t2wlight.dll" (ByVal Hr As Integer, ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  143. Declare Function cCloseAllEditForm Lib "t2wlight.dll" () As Integer
  144. Declare Function cCmpFileAttribute Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  145. Declare Function cCmpFileContents Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String, ByVal sensitivity As Integer) As Integer
  146. Declare Function cCmpFileSize Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  147. Declare Function cCmpFileTime Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String) As Integer
  148. Declare Sub cCnvASCIItoEBCDIC Lib "t2wlight.dll" (Txt As String)
  149. Declare Sub cCnvEBCDICtoASCII Lib "t2wlight.dll" (Txt As String)
  150. Declare Function cCompact Lib "t2wlight.dll" (Txt As String) As String
  151. Declare Function cCompress Lib "t2wlight.dll" (Txt As String) As String
  152. Declare Function cCompressTab Lib "t2wlight.dll" (Txt As String, ByVal nTab As Integer) As String
  153. Declare Function cCount Lib "t2wlight.dll" (Txt As String, Separator As String) As Integer
  154. Declare Function cCountDirectories Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  155. Declare Function cCountFiles Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  156. Declare Function cCplAlpha Lib "t2wlight.dll" (Txt As String) As String
  157. Declare Function cCplDigit Lib "t2wlight.dll" (Txt As String) As String
  158. Declare Function cCreateAndFill Lib "t2wlight.dll" (ByVal Length As Integer, Txt As String) As String
  159. Declare Function cCreateBits Lib "t2wlight.dll" (ByVal nBits As Integer) As String
  160. Declare Function cCurrentTime Lib "t2wlight.dll" () As Integer
  161. Declare Function cDateToScalar Lib "t2wlight.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Long
  162. Declare Function cDayOfWeek Lib "t2wlight.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  163. Declare Function cDayOfYear Lib "t2wlight.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  164. Declare Function cDaysInMonth Lib "t2wlight.dll" (ByVal nYear As Integer, ByVal nMonth As Integer) As Integer
  165. Declare Sub cDecrI Lib "t2wlight.dll" (Value As Integer)
  166. Declare Sub cDecrL Lib "t2wlight.dll" (Value As Long)
  167. Declare Function cDecrypt Lib "t2wlight.dll" (Txt As String, password As String, ByVal level As Integer) As String
  168. Declare Function cDeviationD Lib "t2wlight.dll" (Array() As Double) As Double
  169. Declare Function cDeviationI Lib "t2wlight.dll" (Array() As Integer) As Double
  170. Declare Function cDeviationL Lib "t2wlight.dll" (Array() As Long) As Double
  171. Declare Function cDeviationS Lib "t2wlight.dll" (Array() As Single) As Double
  172. Declare Sub cDisableCtlRedraw Lib "t2wlight.dll" (Ctl As Control)
  173. Declare Sub cDisableFI Lib "t2wlight.dll" (Ctl As Control)
  174. Declare Sub cDisableForm Lib "t2wlight.dll" (ByVal hWnd As Integer)
  175. Declare Sub cDisableRedraw Lib "t2wlight.dll" (ByVal hWnd As Integer)
  176. Declare Function cEXEnameActiveWindow Lib "t2wlight.dll" () As String
  177. Declare Function cEXEnameTask Lib "t2wlight.dll" (ByVal nFilename As String) As String
  178. Declare Function cEXEnameWindow Lib "t2wlight.dll" (ByVal hModule As Integer) As String
  179. Declare Sub cEnableCtlRedraw Lib "t2wlight.dll" (Ctl As Control)
  180. Declare Sub cEnableFI Lib "t2wlight.dll" (Ctl As Control)
  181. Declare Sub cEnableForm Lib "t2wlight.dll" (ByVal hWnd As Integer)
  182. Declare Sub cEnableRedraw Lib "t2wlight.dll" (ByVal hWnd As Integer)
  183. Declare Function cEncrypt Lib "t2wlight.dll" (Txt As String, password As String, ByVal level As Integer) As String
  184. Declare Function cExpandTab Lib "t2wlight.dll" (Txt As String, ByVal nTab As Integer) As String
  185. Declare Function cFileCRC32 Lib "t2wlight.dll" (ByVal lpFilename As String, ByVal Mode As Integer) As Long
  186. Declare Function cFileCompress Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  187. Declare Function cFileCopy Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  188. Declare Function cFileDateCreated Lib "t2wlight.dll" (ByVal lpFilename As String) As String
  189. Declare Function cFileDecrypt Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String, password As String, ByVal level As Integer) As Long
  190. Declare Function cFileDrive Lib "t2wlight.dll" (ByVal lpFilename As String) As String
  191. Declare Function cFileEncrypt Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String, password As String, ByVal level As Integer) As Long
  192. Declare Function cFileExpand Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String) As Long
  193. Declare Function cFileFilter Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String, Filter As String) As Long
  194. Declare Function cFileFilterNot Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String, Filter As String) As Long
  195. Declare Function cFileGetAttrib Lib "t2wlight.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  196. Declare Function cFileLastDateAccess Lib "t2wlight.dll" (ByVal lpFilename As String) As String
  197. Declare Function cFileLastDateModified Lib "t2wlight.dll" (ByVal lpFilename As String) As String
  198. Declare Function cFileLastTimeAccess Lib "t2wlight.dll" (ByVal lpFilename As String) As String
  199. Declare Function cFileLastTimeModified Lib "t2wlight.dll" (ByVal lpFilename As String) As String
  200. Declare Function cFileLineCount Lib "t2wlight.dll" (ByVal lpFilename As String) As Long
  201. Declare Function cFileMerge Lib "t2wlight.dll" (ByVal file1 As String, ByVal file2 As String, ByVal file3 As String) As Long
  202. Declare Function cFilePathExists Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  203. Declare Function cFileResetAllAttrib Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  204. Declare Function cFileResetArchive Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  205. Declare Function cFileResetFlag Lib "t2wlight.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  206. Declare Function cFileResetHidden Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  207. Declare Function cFileResetReadOnly Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  208. Declare Function cFileResetSystem Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  209. Declare Function cFileSetAllAttrib Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  210. Declare Function cFileSetArchive Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  211. Declare Function cFileSetAttrib Lib "t2wlight.dll" (ByVal nFilename As String, nFileAttribute As Any) As Integer
  212. Declare Function cFileSetFlag Lib "t2wlight.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  213. Declare Function cFileSetHidden Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  214. Declare Function cFileSetReadOnly Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  215. Declare Function cFileSetSystem Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  216. Declare Function cFileSize Lib "t2wlight.dll" (ByVal lpFilename As String) As Long
  217. Declare Function cFileStatistics Lib "t2wlight.dll" (ByVal nFilename As String, nLines As Long, nWords As Long, nChars As Long) As Long
  218. Declare Function cFileTimeCreated Lib "t2wlight.dll" (ByVal lpFilename As String) As String
  219. Declare Function cFileToComboBox Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer
  220. Declare Function cFileToListBox Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal nFile As String) As Integer
  221. Declare Function cFilesInDirectory Lib "t2wlight.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  222. Declare Function cFilesSize Lib "t2wlight.dll" (ByVal nFilename As String) As Long
  223. Declare Function cFilesSizeOnDisk Lib "t2wlight.dll" (ByVal nFilename As String) As Long
  224. Declare Function cFilesSlack Lib "t2wlight.dll" (ByVal nFilename As String, Size1 As Long, Size2 As Long) As Integer
  225. Declare Sub cFill Lib "t2wlight.dll" (Txt As String, Fill As String)
  226. Declare Function cFillD Lib "t2wlight.dll" (Array() As Double, ByVal nValue As Double) As Integer
  227. Declare Function cFillI Lib "t2wlight.dll" (Array() As Integer, ByVal nValue As Integer) As Integer
  228. Declare Function cFillIncrD Lib "t2wlight.dll" (Array() As Double, ByVal nValue As Double, ByVal Increment As Double) As Integer
  229. Declare Function cFillIncrI Lib "t2wlight.dll" (Array() As Integer, ByVal nValue As Integer, ByVal Increment As Integer) As Integer
  230. Declare Function cFillIncrL Lib "t2wlight.dll" (Array() As Long, ByVal nValue As Long, ByVal Increment As Long) As Integer
  231. Declare Function cFillIncrS Lib "t2wlight.dll" (Array() As Single, ByVal nValue As Single, ByVal Increment As Single) As Integer
  232. Declare Function cFillL Lib "t2wlight.dll" (Array() As Long, ByVal nValue As Long) As Integer
  233. Declare Function cFillS Lib "t2wlight.dll" (Array() As Single, ByVal nValue As Single) As Integer
  234. Declare Function cFilterBlocks Lib "t2wlight.dll" (Txt As String, Delimitor As String) As String
  235. Declare Function cFilterChars Lib "t2wlight.dll" (Txt As String, charSet As String) As String
  236. Declare Function cFilterFirstChars Lib "t2wlight.dll" (Txt As String, charSet As String) As String
  237. Declare Function cFilterNotChars Lib "t2wlight.dll" (Txt As String, charSet As String) As String
  238. Declare Function cFindBitReset Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As Integer
  239. Declare Function cFindBitSet Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As Integer
  240. Declare Function cFindFileInEnv Lib "t2wlight.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As Integer
  241. Declare Function cFindFileInPath Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  242. Declare Function cFloppyInfo Lib "t2wlight.dll" (ByVal nDrive As String, nHeads As Integer, nCylinders As Integer, nSectors As Integer) As Integer
  243. Declare Function cFromBinary Lib "t2wlight.dll" (Text As String) As String
  244. Declare Function cFromBinary2 Lib "t2wlight.dll" (Text As String, Bin As String) As String
  245. Declare Function cFromHexa Lib "t2wlight.dll" (Text As String) As String
  246. Declare Function cFullPath Lib "t2wlight.dll" (ByVal nFilename As String) As String
  247. Declare Function cGet Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As String
  248. Declare Function cGetBit Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As Integer
  249. Declare Function cGetBlock Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String
  250. Declare Function cGetCaption Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  251. Declare Function cGetChangeTaskName Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal Text As String) As String
  252. Declare Function cGetClass Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  253. Declare Function cGetClassName Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  254. Declare Function cGetContainer Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  255. Declare Function cGetCountry Lib "t2wlight.dll" () As String
  256. Declare Function cGetCountryCode Lib "t2wlight.dll" () As String
  257. Declare Function cGetCtlCaption Lib "t2wlight.dll" (Ctl As Control) As String
  258. Declare Function cGetCtlClass Lib "t2wlight.dll" (Ctl As Control) As String
  259. Declare Function cGetCtlContainer Lib "t2wlight.dll" (Ctl As Control) As String
  260. Declare Function cGetCtlDataField Lib "t2wlight.dll" (Ctl As Control) As String
  261. Declare Function cGetCtlForm Lib "t2wlight.dll" (Ctl As Control) As String
  262. Declare Function cGetCtlIndex Lib "t2wlight.dll" (Ctl As Control) As Integer
  263. Declare Function cGetCtlName Lib "t2wlight.dll" (Ctl As Control) As String
  264. Declare Function cGetCtlNameIndex Lib "t2wlight.dll" (Ctl As Control) As String
  265. Declare Function cGetCtlPropCaption Lib "t2wlight.dll" (Ctl As Control) As Integer
  266. Declare Function cGetCtlPropDataField Lib "t2wlight.dll" (Ctl As Control) As Integer
  267. Declare Function cGetCtlPropText Lib "t2wlight.dll" (Ctl As Control) As Integer
  268. Declare Function cGetCtlTag Lib "t2wlight.dll" (Ctl As Control) As String
  269. Declare Function cGetCtlTagSized Lib "t2wlight.dll" (Ctl As Control) As String
  270. Declare Function cGetCtlText Lib "t2wlight.dll" (Ctl As Control) As String
  271. Declare Function cGetCurrency Lib "t2wlight.dll" () As String
  272. Declare Function cGetCurrentDrive Lib "t2wlight.dll" () As String
  273. Declare Function cGetDataField Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  274. Declare Function cGetDateFormat Lib "t2wlight.dll" () As String
  275. Declare Function cGetDateSeparator Lib "t2wlight.dll" () As String
  276. Declare Function cGetDefaultCurrentDir Lib "t2wlight.dll" () As String
  277. Declare Function cGetDefaultPrinter Lib "t2wlight.dll" () As String
  278. Declare Function cGetDevices Lib "t2wlight.dll" () As String
  279. Declare Function cGetDiskClusterSize Lib "t2wlight.dll" (ByVal lpDrive As String) As Long
  280. Declare Function cGetDiskFree Lib "t2wlight.dll" (ByVal lpDrive As String) As Long
  281. Declare Function cGetDiskSpace Lib "t2wlight.dll" (ByVal lpDrive As String) As Long
  282. Declare Function cGetDiskUsed Lib "t2wlight.dll" (ByVal lpDrive As String) As Long
  283. Declare Function cGetDriveCurrentDir Lib "t2wlight.dll" (ByVal lpDrive As String) As String
  284. Declare Function cGetDriveType Lib "t2wlight.dll" (ByVal lpDrive As String) As Integer
  285. Declare Function cGetForm Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  286. Declare Function cGetFullNameInEnv Lib "t2wlight.dll" (ByVal lpFilename As String, ByVal lpEnv As String) As String
  287. Declare Function cGetFullNameInPath Lib "t2wlight.dll" (ByVal lpFilename As String) As String
  288. Declare Function cGetHourFormat Lib "t2wlight.dll" () As String
  289. Declare Function cGetHwnd Lib "t2wlight.dll" (Ctl As Control) As Integer
  290. Declare Function cGetIn Lib "t2wlight.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  291. Declare Function cGetInPart Lib "t2wlight.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  292. Declare Function cGetInPartR Lib "t2wlight.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  293. Declare Function cGetInR Lib "t2wlight.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  294. Declare Function cGetIndex Lib "t2wlight.dll" (ByVal hWnd As Integer) As Integer
  295. Declare Function cGetIni Lib "t2wlight.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String) As String
  296. Declare Function cGetLanguage Lib "t2wlight.dll" () As String
  297. Declare Function cGetListSeparator Lib "t2wlight.dll" () As String
  298. Declare Function cGetName Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  299. Declare Function cGetNameIndex Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  300. Declare Function cGetNetConnection Lib "t2wlight.dll" (ByVal lpDrive As String, ErrCode As Integer) As String
  301. Declare Function cGetPrinterPorts Lib "t2wlight.dll" () As String
  302. Declare Function cGetSectionItems Lib "t2wlight.dll" (ByVal Section As String, ByVal InitFile As String, nItems As Integer) As String
  303. Declare Function cGetSystemDirectory Lib "t2wlight.dll" () As String
  304. Declare Function cGetTag Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  305. Declare Function cGetTagSized Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal nSize As Integer) As String
  306. Declare Function cGetTaskName Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  307. Declare Function cGetText Lib "t2wlight.dll" (ByVal hWnd As Integer) As String
  308. Declare Function cGetTimeSeparator Lib "t2wlight.dll" () As String
  309. Declare Function cGetVersion Lib "t2wlight.dll" () As Single
  310. Declare Function cGetWinINI Lib "t2wlight.dll" (ByVal Info As Integer) As String
  311. Declare Function cGetWinSection Lib "t2wlight.dll" (ByVal Section As String) As String
  312. Declare Function cGetWindowsDirectory Lib "t2wlight.dll" () As String
  313. Declare Function cGiveBitPalindrome Lib "t2wlight.dll" () As String
  314. Declare Function cHideAllEditForm Lib "t2wlight.dll" () As Integer
  315. Declare Function cHideDebugForm Lib "t2wlight.dll" () As Integer
  316. Declare Function cHourTo Lib "t2wlight.dll" (Txt As String) As Variant
  317. Declare Sub cIncrI Lib "t2wlight.dll" (Value As Integer)
  318. Declare Sub cIncrL Lib "t2wlight.dll" (Value As Long)
  319. Declare Function cInsertBlocks Lib "t2wlight.dll" (Txt As String, Insert As String) As String
  320. Declare Function cInsertBlocksBy Lib "t2wlight.dll" (Txt As String, Insert As String, Delimitor As String) As String
  321. Declare Function cInsertByMask Lib "t2wlight.dll" (Txt As String, Mask As String, Insert As String) As String
  322. Declare Function cInsertChars Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer, Insert As String) As String
  323. Declare Function cIntoBalance Lib "t2wlight.dll" (Var As Variant) As String
  324. Declare Function cIntoBalanceFill Lib "t2wlight.dll" (Var As Variant) As String
  325. Declare Function cIntoDate Lib "t2wlight.dll" (ByVal nDate As Long) As String
  326. Declare Function cIntoDateFill Lib "t2wlight.dll" (ByVal nDate As Long) As String
  327. Declare Function cIntoDateNull Lib "t2wlight.dll" (ByVal nDate As Long) As String
  328. Declare Function cIntoFixHour Lib "t2wlight.dll" (Var As Variant, ByVal Length As Integer, ByVal fillZero As Integer, ByVal CentiΦme As Integer) As String
  329. Declare Function cIntoHour Lib "t2wlight.dll" (Var As Variant) As String
  330. Declare Function cIntoVarHour Lib "t2wlight.dll" (Var As Variant) As String
  331. Declare Function cIsAlnum Lib "t2wlight.dll" (Txt As String) As Integer
  332. Declare Function cIsAlpha Lib "t2wlight.dll" (Txt As String) As Integer
  333. Declare Function cIsAscii Lib "t2wlight.dll" (Txt As String) As Integer
  334. Declare Function cIsBalance Lib "t2wlight.dll" (ByVal nHour As Long, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  335. Declare Function cIsBitPalindrome Lib "t2wlight.dll" (Txt As String) As Integer
  336. Declare Function cIsCsym Lib "t2wlight.dll" (Txt As String) As Integer
  337. Declare Function cIsCsymf Lib "t2wlight.dll" (Txt As String) As Integer
  338. Declare Function cIsDate Lib "t2wlight.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer) As Integer
  339. Declare Function cIsDigit Lib "t2wlight.dll" (Txt As String) As Integer
  340. Declare Function cIsFileArchive Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  341. Declare Function cIsFileEmpty Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  342. Declare Function cIsFileFlag Lib "t2wlight.dll" (ByVal nFilename As String, ByVal nStatus As Integer) As Integer
  343. Declare Function cIsFileHidden Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  344. Declare Function cIsFileNormal Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  345. Declare Function cIsFileReadOnly Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  346. Declare Function cIsFileSubDir Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  347. Declare Function cIsFileSystem Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  348. Declare Function cIsFileVolId Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  349. Declare Function cIsFilenameValid Lib "t2wlight.dll" (ByVal nFilename As String) As Integer
  350. Declare Function cIsFormEnabled Lib "t2wlight.dll" (ByVal hWnd As Integer) As Integer
  351. Declare Function cIsHour Lib "t2wlight.dll" (ByVal nHour As Integer, ByVal nMinute As Integer, ByVal nSecond As Integer) As Integer
  352. Declare Function cIsISBN Lib "t2wlight.dll" (Txt As String) As Integer
  353. Declare Function cIsLeapYear Lib "t2wlight.dll" (ByVal nYear As Integer) As Integer
  354. Declare Function cIsLower Lib "t2wlight.dll" (Txt As String) As Integer
  355. Declare Function cIsPalindrome Lib "t2wlight.dll" (Txt As String) As Integer
  356. Declare Function cIsPunct Lib "t2wlight.dll" (Txt As String) As Integer
  357. Declare Function cIsSpace Lib "t2wlight.dll" (Txt As String) As Integer
  358. Declare Function cIsUpper Lib "t2wlight.dll" (Txt As String) As Integer
  359. Declare Function cIsXdigit Lib "t2wlight.dll" (Txt As String) As Integer
  360. Declare Function cKillDir Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  361. Declare Function cKillDirFilesAll Lib "t2wlight.dll" (ByVal lpDir As String, ByVal lpMask As String) As Integer
  362. Declare Function cKillDirs Lib "t2wlight.dll" (ByVal lpDir As String, ByVal HeaderDirectory As Integer) As Integer
  363. Declare Function cKillFile Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  364. Declare Function cKillFileAll Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  365. Declare Function cKillFiles Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  366. Declare Function cKillFilesAll Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  367. Declare Function cLrc Lib "t2wlight.dll" (Txt As String) As String
  368. Declare Function cMKB Lib "t2wlight.dll" (ByVal Value As Integer) As String
  369. Declare Function cMKC Lib "t2wlight.dll" (ByVal Value As Currency) As String
  370. Declare Function cMKD Lib "t2wlight.dll" (ByVal Value As Double) As String
  371. Declare Function cMKI Lib "t2wlight.dll" (ByVal Value As Integer) As String
  372. Declare Function cMKL Lib "t2wlight.dll" (ByVal Value As Long) As String
  373. Declare Function cMKN Lib "t2wlight.dll" (ByVal Value As String) As String
  374. Declare Function cMKS Lib "t2wlight.dll" (ByVal Value As Single) As String
  375. Declare Function cMakeDir Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  376. Declare Function cMakeMultipleDir Lib "t2wlight.dll" (ByVal lpFilename As String) As Integer
  377. Declare Function cMakePath Lib "t2wlight.dll" (ByVal nDrive As String, ByVal nDir As String, ByVal nFilename As String, ByVal Ext As String) As String
  378. Declare Function cMax Lib "t2wlight.dll" (Var1 As Variant, Var2 As Variant) As Variant
  379. Declare Function cMaxD Lib "t2wlight.dll" (Array() As Double) As Double
  380. Declare Function cMaxI Lib "t2wlight.dll" (Array() As Integer) As Integer
  381. Declare Function cMaxL Lib "t2wlight.dll" (Array() As Long) As Long
  382. Declare Function cMaxS Lib "t2wlight.dll" (Array() As Single) As Single
  383. Declare Function cMeanD Lib "t2wlight.dll" (Array() As Double) As Double
  384. Declare Function cMeanI Lib "t2wlight.dll" (Array() As Integer) As Double
  385. Declare Function cMeanL Lib "t2wlight.dll" (Array() As Long) As Double
  386. Declare Function cMeanS Lib "t2wlight.dll" (Array() As Single) As Double
  387. Declare Function cMin Lib "t2wlight.dll" (Var1 As Variant, Var2 As Variant) As Variant
  388. Declare Function cMinD Lib "t2wlight.dll" (Array() As Double) As Double
  389. Declare Function cMinI Lib "t2wlight.dll" (Array() As Integer) As Integer
  390. Declare Function cMinL Lib "t2wlight.dll" (Array() As Long) As Long
  391. Declare Function cMinS Lib "t2wlight.dll" (Array() As Single) As Single
  392. Declare Function cMixChars Lib "t2wlight.dll" (Txt As String) As String
  393. Declare Function cNexthWnd Lib "t2wlight.dll" (ByVal hWnd As Integer) As Integer
  394. Declare Function cNumDigit Lib "t2wlight.dll" (Txt As String) As Integer
  395. Declare Function cOneCharFromLeft Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As String
  396. Declare Function cOneCharFromRight Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As String
  397. Declare Function cOrToken Lib "t2wlight.dll" (ByVal Txt As String, ByVal Token As String) As Integer
  398. Declare Function cOrTokenIn Lib "t2wlight.dll" (ByVal Txt As String, ByVal Token As String, ByVal Separator As String) As Integer
  399. Declare Function cProperName Lib "t2wlight.dll" (Txt As String) As String
  400. Declare Function cProperName2 Lib "t2wlight.dll" (Txt As String, ByVal TokenToUse As String, ByVal Options As Integer) As String
  401. Declare Sub cPutIni Lib "t2wlight.dll" (ByVal AppName As String, ByVal szItem As String, ByVal szDefault As String, ByVal InitFile As String)
  402. Declare Function cRemoveBlockChar Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer, ByVal Length As Integer) As String
  403. Declare Function cRemoveOneChar Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer) As String
  404. Declare Function cRenameFile Lib "t2wlight.dll" (ByVal lpFilename1 As String, ByVal lpFilename2 As String) As Integer
  405. Declare Function cResizeString Lib "t2wlight.dll" (Txt As String, ByVal NewLength As Integer) As String
  406. Declare Function cResizeStringAndFill Lib "t2wlight.dll" (Txt As String, ByVal NewLength As Integer, Fill As String) As String
  407. Declare Function cReverse Lib "t2wlight.dll" (Txt As String) As String
  408. Declare Sub cReverseAllBits Lib "t2wlight.dll" (Txt As String)
  409. Declare Sub cReverseAllBitsByChar Lib "t2wlight.dll" (Txt As String)
  410. Declare Function cReverseSortD Lib "t2wlight.dll" (Array() As Double) As Integer
  411. Declare Function cReverseSortI Lib "t2wlight.dll" (Array() As Integer) As Integer
  412. Declare Function cReverseSortL Lib "t2wlight.dll" (Array() As Long) As Integer
  413. Declare Function cReverseSortS Lib "t2wlight.dll" (Array() As Single) As Integer
  414. Declare Function cReverseSortStr Lib "t2wlight.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  415. Declare Function cRomanToArabic Lib "t2wlight.dll" (Txt As String) As Variant
  416. Declare Sub cScalarToDate Lib "t2wlight.dll" (ByVal Scalar As Long, nYear As Integer, nMonth As Integer, nDay As Integer)
  417. Declare Function cScrollL Lib "t2wlight.dll" (Txt As String) As String
  418. Declare Function cScrollR Lib "t2wlight.dll" (Txt As String) As String
  419. Declare Sub cSetAllBits Lib "t2wlight.dll" (Txt As String, ByVal Value As Integer)
  420. Declare Sub cSetBit Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer, ByVal Value As Integer)
  421. Declare Sub cSetBitToFalse Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer)
  422. Declare Sub cSetBitToTrue Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer)
  423. Declare Sub cSetCaption Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal Text As String)
  424. Declare Sub cSetCtlCaption Lib "t2wlight.dll" (Ctl As Control, ByVal Text As String)
  425. Declare Sub cSetCtlDataField Lib "t2wlight.dll" (Ctl As Control, ByVal Text As String)
  426. Declare Sub cSetCtlPropString Lib "t2wlight.dll" (Ctl As Control, ByVal PropIndex As Integer, ByVal Text As String)
  427. Declare Sub cSetCtlTag Lib "t2wlight.dll" (Ctl As Control, ByVal Text As String)
  428. Declare Sub cSetCtlText Lib "t2wlight.dll" (Ctl As Control, ByVal Text As String)
  429. Declare Function cSetD Lib "t2wlight.dll" (Array() As Double, ByVal nValue As Double) As Integer
  430. Declare Sub cSetDataField Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal Text As String)
  431. Declare Sub cSetDefaultSeparator Lib "t2wlight.dll" (Separator As String)
  432. Declare Function cSetI Lib "t2wlight.dll" (Array() As Integer, ByVal nValue As Integer) As Integer
  433. Declare Function cSetL Lib "t2wlight.dll" (Array() As Long, ByVal nValue As Long) As Integer
  434. Declare Function cSetS Lib "t2wlight.dll" (Array() As Single, ByVal nValue As Single) As Integer
  435. Declare Sub cSetTag Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal Text As String)
  436. Declare Sub cSetText Lib "t2wlight.dll" (ByVal hWnd As Integer, ByVal Text As String)
  437. Declare Function cSgn Lib "t2wlight.dll" (ByVal Value As Integer) As Integer
  438. Declare Function cSleep Lib "t2wlight.dll" (ByVal delay As Long) As Integer
  439. Declare Function cSortD Lib "t2wlight.dll" (Array() As Double) As Integer
  440. Declare Function cSortI Lib "t2wlight.dll" (Array() As Integer) As Integer
  441. Declare Function cSortL Lib "t2wlight.dll" (Array() As Long) As Integer
  442. Declare Function cSortS Lib "t2wlight.dll" (Array() As Single) As Integer
  443. Declare Function cSortStr Lib "t2wlight.dll" (Txt As String, ByVal nItem As Integer, ByVal ItemLength As Integer) As Integer
  444. Declare Function cSplitPath Lib "t2wlight.dll" (ByVal nFilename As String, SPLITPATH As Any) As Integer
  445. Declare Function cStringCRC32 Lib "t2wlight.dll" (Txt As String) As Long
  446. Declare Function cStringCompress Lib "t2wlight.dll" (Txt As String) As String
  447. Declare Function cStringExpand Lib "t2wlight.dll" (Txt As String) As String
  448. Declare Function cSubDirectory Lib "t2wlight.dll" (ByVal nFilename As String, ByVal FirstNext As Integer) As String
  449. Declare Function cSumD Lib "t2wlight.dll" (Array() As Double) As Double
  450. Declare Function cSumI Lib "t2wlight.dll" (Array() As Integer) As Double
  451. Declare Function cSumL Lib "t2wlight.dll" (Array() As Long) As Double
  452. Declare Function cSumS Lib "t2wlight.dll" (Array() As Single) As Double
  453. Declare Sub cSwapD Lib "t2wlight.dll" (swap1 As Double, swap2 As Double)
  454. Declare Sub cSwapI Lib "t2wlight.dll" (swap1 As Integer, swap2 As Integer)
  455. Declare Sub cSwapL Lib "t2wlight.dll" (swap1 As Long, swap2 As Long)
  456. Declare Sub cSwapS Lib "t2wlight.dll" (swap1 As Single, swap2 As Single)
  457. Declare Sub cSwapStr Lib "t2wlight.dll" (swap1 As String, swap2 As String)
  458. Declare Function cTimeBetween Lib "t2wlight.dll" (ByVal Hr1 As Integer, ByVal Hr2 As Integer) As Integer
  459. Declare Function cToBinary Lib "t2wlight.dll" (Text As String) As String
  460. Declare Function cToBinary2 Lib "t2wlight.dll" (Text As String, Bin As String) As String
  461. Declare Function cToHexa Lib "t2wlight.dll" (Text As String) As String
  462. Declare Sub cToggleAllBits Lib "t2wlight.dll" (Txt As String)
  463. Declare Sub cToggleBit Lib "t2wlight.dll" (Txt As String, ByVal Position As Integer)
  464. Declare Function cTokenIn Lib "t2wlight.dll" (Txt As String, Separator As String, ByVal Position As Integer) As String
  465. Declare Function cTrueBetween Lib "t2wlight.dll" (Var As Variant, Var1 As Variant, Var2 As Variant) As Integer
  466. Declare Sub cTypeClear Lib "t2wlight.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer)
  467. Declare Function cTypeMid Lib "t2wlight.dll" (TypeSrc As Any, ByVal offset As Integer, ByVal Length As Integer) As String
  468. Declare Function cTypeTransfert Lib "t2wlight.dll" (TypeSrc As Any, ByVal lenTypeSrc As Integer) As String
  469. Declare Function cTypesCompare Lib "t2wlight.dll" (Type1 As Any, Type2 As Any, ByVal lenType1 As Integer) As Integer
  470. Declare Sub cTypesCopy Lib "t2wlight.dll" (TypeSrc As Any, TypeDst As Any, ByVal lenTypeSrc As Integer)
  471. Declare Function cUnHideAllEditForm Lib "t2wlight.dll" () As Integer
  472. Declare Function cUnHideDebugForm Lib "t2wlight.dll" () As Integer
  473. Declare Function cUncompact Lib "t2wlight.dll" (Txt As String) As String
  474. Declare Function cUniqueFileName Lib "t2wlight.dll" (Txt As String) As String
  475. Declare Function cWeekOfYear Lib "t2wlight.dll" (ByVal nYear As Integer, ByVal nMonth As Integer, ByVal nDay As Integer, ByVal nISO As Integer) As Integer
  476.  
  477.